home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / dos / biz / easybase / pack1.prg / NETOUT / DEMOAPP / PROC10.DEF < prev    next >
Encoding:
Text File  |  1995-11-22  |  3.2 KB  |  151 lines
  1.  
  2.  
  3.                               TIME SHEET ENTRIES
  4.                               ──────────────────
  5.                ╔═══════════════════════════════════════════════╗
  6.                ║Done by                                        ║
  7.                ║                                               ║
  8.                ║Type of work                                   ║
  9.                ║                                               ║
  10.                ║For                                            ║
  11.                ║                                               ║
  12.                ║Time taken          Hrs    Mins                ║
  13.                ╚═══════════════════════════════════════════════╝
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89. ╠Enter Clients File No and Time then Press F2 - Use * Enter to change staff/work 
  90. !20Staff               YesN/AText          YesField      N/AYes                                 1x                   No N/AText          No Invisible  N/AYes                                 8Date                No N/ADate          No Invisible  N/AYes??/??/??                        !25type                YesN/AText          YesField      N/AYes                                    14no                  No N/AInteger       No Invisible  N/AYes                                    $ 3Rate                No N/AFixed Point   No Invisible 2N/AYes                                    ,     2Rpm                 No N/AFixed Point   No Invisible 6N/AYes                                    6     4Price               No N/AFixed Point   No Invisible 3N/AYes                                
  91.  4file                YesN/AText          YesField      N/AYes                                    
  92. !30Customer            If N/AText          No Field      N/AYes                                
  93. ! 3Hrs                 If N/AInteger       YesField      N/ANo                                  ) 2Mins                If N/AInteger       YesField      N/AYes                                 if(lookup(staff,name) = blank,lookup(currentstaff,name),lookup(staff,name))
  94. "x"
  95. system date
  96. if(lookup(work,type) = blank,lookup(currentstaff,type),lookup(work,type))
  97. lookup(last,no)+1
  98. lookup(staff,rate)
  99. rate/60
  100. round((hrs * 60 + mins) * rpm,2)
  101. start here if(charged = "no",blank,lookup(customers,file))
  102. lookup(customers,name)
  103.  
  104. if(mins > 59,blank[beepMaximum entry in Mins is 59cursor mins],mins)
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126. charged = "yes"
  127. mins = 0 or mins = blank
  128. hrs = 0 or hrs = blank
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141. 0 !"$%&'(*+,-./0
  142. 
  143. 
  144. 
  145. 
  146. 
  147. 
  148. 
  149. 
  150. 
  151.        ïTime Sheet          YYNY@